(de bodiesAsFunctions (Bodies)
  (make
    (for Body Bodies
      (link 
        (if (atom Body)
          Body
          (list '("Pipe")
            (append
              (list (car Body) "Pipe")
              (cdr Body) ) ) ) ) ) ) )